home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 April / Software of the Month Club 1996 April.iso / mac / Games / RoboWar 4.1.2 / Tournament VII / Individual / Vortex v2.2 / Vortex v2.2
Encoding:
Text File  |  1994-01-03  |  2.0 KB  |  139 lines  |  [RobW/RWAR]
  1. #Vortex v2.2
  2. #written by Paul Schmidt
  3. #incept date November 15, 1993
  4. #modified December 29, 1993
  5. #e-mail:  schmidtp@carleton.edu
  6. #snail mail:Paul Schmidt
  7. #           Carleton College
  8. #           Northfield, MN 55057
  9.  
  10. {Vortex is only an idea that is yet to be perfected, but so far it is doing pretty good.  Take what you wish for inspiration, but I would discourage you from copying whole sections of code.  Besides, you can write better code than I can anyway.}
  11.  
  12. setup:
  13.  shoot range' setint
  14.  300 range' setparam
  15.  goUp bot' setint
  16.  goDown top' setint
  17.  goLeft right' setint
  18.  goRight left' setint
  19.  inton
  20.  
  21. start:
  22.  x 230 > startLeft startRight ife
  23.  y 230 > startUp startDown ifeg
  24.  
  25. startUp:
  26.  -4 speedy' store
  27. main jump
  28.  
  29. startDown:
  30.  4 speedy' store
  31. main jump
  32.  
  33. startRight:
  34.  3 speedx' store
  35. return
  36.  
  37. startLeft:
  38.  -3 speedx' store
  39. return
  40.  
  41. goUp:
  42.  -4 speedy' store
  43. rti
  44.  
  45. goDown:
  46.  4 speedy' store
  47. rti
  48.  
  49. goRight:
  50.  3 speedx' store
  51. rti
  52.  
  53. goLeft:
  54.  -3 speedx' store
  55. rti
  56.  
  57. main:
  58.  10 aim' store
  59.  60 aim' store
  60.  110 aim' store
  61.  160 aim' store
  62.  210 aim' store
  63.  260 aim' store
  64.  310 aim' store
  65.  330 aim' store
  66.  20 aim' store
  67.  70 aim' store
  68.  120 aim' store
  69.  170 aim' store
  70.  220 aim' store
  71.  270 aim' store
  72.  340 aim' store
  73.  30 aim' store
  74.  80 aim' store
  75.  130 aim' store
  76.  180 aim' store
  77.  230 aim' store
  78.  280 aim' store
  79.  350 aim' store
  80.  40 aim' store
  81.  90 aim' store
  82.  140 aim' store
  83.  190 aim' store
  84.  240 aim' store
  85.  290 aim' store
  86.  360 aim' store
  87.  50 aim' store
  88.  100 aim' store
  89.  150 aim' store
  90.  200 aim' store
  91.  250 aim' store
  92.  300 aim' store
  93.  320 aim' store
  94. main jump
  95.  
  96. shoot:
  97.  aim doppler 5 * +
  98.  range dup 48 < and wham ifg
  99.  range dup 90 < and burst ifg
  100.  range dup 130 < and volley ifg
  101.  range energy 100 > and more ifg
  102.  drop
  103. rti
  104.  
  105. more:
  106.  aim' store
  107.  30 fire' store
  108. rti
  109.  
  110. volley:
  111.  energy 20 > runAway if
  112.  energy 50 < partial ifg
  113.  aim' store
  114.  30 fire' store
  115. rti
  116.  
  117. runAway:
  118.  aim 5 cos speedy' store
  119.  aim -5 sin speedx' store
  120. return
  121.  
  122. burst:
  123.  energy 20 > runAway if
  124.  energy 80 < partial ifg
  125.  aim' store
  126.  60 bullet' store
  127. rti
  128.  
  129. partial:
  130.  aim' store
  131.  energy 20 - fire' store
  132. rti
  133.  
  134. wham:
  135.  aim' store
  136.  150 bullet' store
  137. abort:
  138.  dropall
  139. setup jump